home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
happypas
/
linenumb.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-30
|
1KB
|
30 lines
{*********************************************************************
* *** テキストファイルに行番号を付与するプログラム *** *
* (InputFileテキストファイルに行番号を付与してoutputに出力) *
* *
* HAPPyのサンプルプログラム *
* (作者 浅野比富美 Public Domain Software) *
*********************************************************************}
program LineNumber(InputFile,output) ;
const keta = 4 ; { 行番号の桁数 }
var InputFile : text ; { 入力テキストファイル }
ch : char ;
Ln : integer ; { 行番号 }
begin
reset(InputFile) ; { 入力ファイルを検査モードにする }
Ln := 0 ;
while not eof(InputFile) do
begin
Ln := Ln + 1 ; { 行番号更新 }
write(output,Ln:keta,': ') ; { 行番号出力 }
while not eoln(InputFile) do { その行の1文字ずつを読み書き }
begin
read(InputFile,ch) ;
write(output,ch)
end ;
readln(InputFile) ; { 改行マークを読み飛ばす }
writeln(output) { 改行する }
end
end.